home *** CD-ROM | disk | FTP | other *** search
/ Tech Arsenal 1 / Tech Arsenal (Arsenal Computer).ISO / tek-02 / teglp.zip / SAMPROGS.ZIP / ANIMTST1.PAS < prev    next >
Pascal/Delphi Source File  |  1990-06-29  |  2KB  |  82 lines
  1. {*********************************************************}
  2. {        TEGL Windows ToolKit II           }
  3. {      Copyright (C) 1990, TEGL Systems Corporation      }
  4. {         All Rights Reserved.              }
  5. {*********************************************************}
  6.  
  7. Uses
  8.     graph,
  9.     teglintr,
  10.     animate,
  11.     TEGLEasy,
  12.     TEGLGrph,
  13.     TEGLMenu,
  14.     TEGLUnit,
  15.     fastgrph;
  16.  
  17. const
  18. {$I animtst1.inc}
  19.  
  20. var Oriental   : animateobject;
  21.     OrientalFS : imagestkptr;
  22.  
  23.  
  24. {$F+}
  25. function OrientalBow(Frame:imagestkptr; MouseClickPos: msclickptr) : word;
  26. {$F-}
  27.    begin
  28.       hideimage(Frame);
  29.  
  30.       hidemouse;
  31.       with Oriental do
  32.      begin
  33.         ResetFrame(1);
  34.         Animateinit;
  35.         origin(frame^.x,frame^.y);
  36.         animate(8);
  37.      end;
  38.  
  39.       showmouse;
  40.  
  41.       showimage(Frame,frame^.x,frame^.y);
  42.       OrientalBow := 1;
  43.    end;
  44.  
  45.  
  46. {$F+}
  47. function ExitOption(Frame:imagestkptr; MouseClickPos: msclickptr) : word;
  48. {$F-}
  49.    begin
  50.       abort('IconEdit Test Program - Test IconEdit PutPict.');
  51.    end;
  52.  
  53. begin
  54.    SetVideoChoices(TG_VGA,false);
  55.    EasyTEGL;
  56.  
  57.    with Oriental do
  58.       begin
  59.      init;
  60.      addframe(@imageChina,0,0,55,37,350,1200,55,black);
  61.      addframe(@imageChina,0,0,55,37,150,1200,56,black);
  62.  
  63.      addframe(@imageChina2,0,0,55,37,75,1100,55,black);
  64.      addframe(@imageChina2,0,0,55,37,75,1100,56,black);
  65.  
  66.      addframe(@imageChina3,0,0,55,37,150,900,55,black);
  67.      addframe(@imageChina3,0,0,55,37,150,900,56,black);
  68.      addframe(@imageChina3,0,0,55,37,600,1100,56,black);
  69.  
  70.      addframe(@imageChina2,0,0,55,37,150,1100,0,black);
  71.      addframe(@imageChina,0,0,55,37,500,1100,55,black);
  72.       end;
  73.  
  74.    pushimage(15,getmaxy-65,15+37,getmaxy-65+55);
  75.    putpict(15,getmaxy-65,@imageChina,black);
  76.    DefineMouseClickArea(stackptr,0,0,37,55,true,Orientalbow,MSClick);
  77.    OrientalFS := stackptr;
  78.    setframemobility(stackptr,false);
  79.  
  80.    TEGLSupervisor;
  81. end.
  82.